(shell-command-on-region): In output buffer, display

first page by setting point, not window-start (which can leave
point in an unexpected place).

diff --git a/lisp/simple.el b/lisp/simple.el
index 5b3177d3a4cea1fc5689530caddbfe3d8877dc00..4ef1745ae3d7f7037bd9d4c76428f90664c0c579 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -926,7 +926,10 @@ In either case, the output is inserted after point (leaving mark after it)."
                            (buffer-substring (point)
                                              (progn (end-of-line) (point))))))
                (t 
-                (set-window-start (display-buffer buffer) 1))))))))
+                (save-excursion
+                  (set-buffer buffer)
+                  (goto-char (point-min)))
+                (display-buffer buffer))))))))
 \f
 (defconst universal-argument-map
   (let ((map (make-sparse-keymap)))